﻿Module Module7
    Sub Main()
        Dim N1 As Integer = 1
        Dim N2 As Integer = 2
        Dim N As Integer
        N = N1 & N2
        Console.WriteLine("N = " & N)

        N = N1 + N2
        Console.WriteLine("N = " & N)
        Console.WriteLine()

        Dim S1, S2 As String
        S1 = "第一行字串" & vbCrLf &
            "第二行字串" & vbCrLf &
            "第三行字串"
        Console.WriteLine(S1)
        Console.WriteLine()

        S2 = "第一行字串"
        S2 &= vbCrLf
        S2 &= "第二行字串"
        S2 &= vbCrLf
        S2 &= "第三行字串"
        Console.WriteLine(S2)

        Console.ReadKey()
    End Sub
End Module
